home *** CD-ROM | disk | FTP | other *** search
/ Publication 1 / Publication_01_19xx_-_de_Side_A.d64 / your publication (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  5KB  |  173 lines
  1. 1 rem ************************
  2. 2 rem *                      *
  3. 3 rem * only first magsys !! *
  4. 4 rem *     version 1.0      *
  5. 5 rem *                      *
  6. 6 rem ************************
  7. 10 ifa=0thena=1:load"sprites*",8,1
  8. 11 ifa=1thena=2:load"charset*",8,1
  9. 12 poke53272,24:dim t$(20,14)
  10. 100 poke53280,0:poke53281,15:print"[147][144]"
  11. 101 gosub50000:poke2042,224:poke2043,225:poke53252,35:poke53253,55
  12. 102 poke53254,35:poke53255,55:poke53289,12:poke53276,15:poke53264,3
  13. 103 poke53290,12
  14. 104 print"[194][146][160][198][146][160][194][146][160][199][146][160]$[146][160][195][146][160][193][146][160][197][146] $[146] ![146] ([146]"
  15. 105 print"[164][146][160][166][146][160][162][146][160][167][146][160]%[146][160][163][146][160][161][146][160][165][146] %[146] [166][146] #[146][152]"
  16. 106 print" [171][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][172][173] issue #1[151]":z=1
  17. 107 print"[197][196][201][212][207][210][201][193][204]          [186] [186] [186] [186] [186] [186] [186] [186] [186]"
  18. 108 print"[206][197][215][211] & [193][203][212][213][197][204][204][197][211]   [186]               [186]"
  19. 109 print"[218][213] [196][197][206][160][208][210][207][199][199][201]'[211]    [186]               [186]"
  20. 110 print"[208][213][194][204][201][195] [196][207][205][193][201][206]      [186]               [186]"
  21. 111 print"[193][206][218][197][201][199][197][206][212][197][201][204]       [186]               [186]"
  22. 112 print"[198][169][210] [195][207][196][197][210]          [186]               [186]"
  23. 113 print"[200][193][210][196]- [213][206][196] [211][207][198][212][215][193][210][197] [186]               [186]"
  24. 114 print"[193][204][204][197][211] [193][206][196][197][210][197]       [186]               [186]"
  25. 115 print"[204][193][211][212] [193][206][196] [204][197][193][211][212] !   [186] [186] [186] [186] [186] [186] [186] [186] [186]"
  26. 116 gosub48000:print"[208][213][194][204][201][195][193][212][201][207][206]"
  27. 117 print"[163][163][163][163][163][163][163][163][163][163][163]"
  28. 118 print"[144]the [183][184][185] mag"
  29. 119 print"[152]done by"
  30. 120 print"z.g. & r.h."
  31. 124 ifs=1thens=0:poke53269,9:forg=1to99:nextg
  32. 125 s=1:poke53269,6:forg=1to99:nextg
  33. 126 poke211,1:poke214,z*2+5:sys58640:print"[166]";
  34. 127 geta$:ifa$=""then124
  35. 128 print"[157][157]  ":ifa$="[145]"thenifz>1thenz=z-1
  36. 129 ifa$=""thenifz<9thenz=z+1
  37. 130 ifa$=chr$(13)then132
  38. 131 goto126
  39. 132 on z goto 200,300,400,500,600,700,800,900,1000
  40. 200 m$(1)="hy und hallo"
  41. 201 m$(2)="impressum"
  42. 202 m$(3)="vielen dank"
  43. 203 m$(5)="hauptmen]"
  44. 204 m$(4)="help !"
  45. 248 an=5:gosub49000
  46. 249 on a goto 250,251,252,253,116
  47. 250 z$="mag.001":goto10000
  48. 251 z$="mag.006":goto10000
  49. 252 z$="mag.015":goto10000
  50. 253 z$="mag.027":goto10000
  51. 300 m$(1)="doom auf [183][184][185]"
  52. 301 m$(2)="golden disk "
  53. 303 m$(4)="hauptmen]"
  54. 304 m$(3)="einkaufstrip"
  55. 348 an=4:gosub49000
  56. 349 on a goto 350,351,352,116
  57. 350 z$="mag.011":goto10000
  58. 351 z$="mag.018":goto10000
  59. 352 z$="mag.012":goto10000
  60. 400 m$(1)="sprite mach."
  61. 401 m$(2)="suawriter   "
  62. 402 m$(3)="starfighter "
  63. 403 m$(4)="hawaii      "
  64. 404 m$(5)="topsy turvey"
  65. 405 m$(6)="comm.town   "
  66. 406 m$(7)="hauptmen]"
  67. 407 an=7:gosub49000
  68. 408 on a goto 409,410,411,412,413,414,116
  69. 409 z$="mag.002":goto10000
  70. 410 z$="mag.008":goto10000
  71. 411 z$="mag.016":goto10000
  72. 412 z$="mag.023":goto10000
  73. 413 z$="mag.026":goto10000
  74. 414 z$="mag.028":goto10000
  75. 500 m$(1)="file master "
  76. 501 m$(2)="pizza service"
  77. 502 m$(3)="penguin tower"
  78. 503 m$(4)="civilisate   "
  79. 504 m$(5)="x - dome     "
  80. 505 m$(6)="rockford fd  "
  81. 506 m$(7)="hauptmen]"
  82. 507 an=7:gosub49000
  83. 508 on a goto 511,509,510,512,513,514,116
  84. 509 z$="mag.003":goto10000
  85. 510 z$="mag.004":goto10000
  86. 511 z$="mag.005":goto10000
  87. 512 z$="mag.007":goto10000
  88. 513 z$="mag.009":goto10000
  89. 514 z$="mag.010":goto10000
  90. 600 z$="mag.013":goto10000
  91. 700 z$="mag.019":goto10000
  92. 800 m$(1)="harte ware  "
  93. 801 m$(2)="f]r softies "
  94. 802 m$(3)="hauptmen]   "
  95. 803 an=3:gosub49000
  96. 804 on a goto 850,851,116
  97. 850 z$="mag.017":goto10000
  98. 851 z$="mag.029":goto10000
  99. 900 m$(1)="punkt[220]..... "
  100. 901 m$(2)="spieletips  "
  101. 902 m$(3)="kommerziell "
  102. 903 m$(7)="hauptmen]"
  103. 904 m$(4)="dancefloor"
  104. 905 m$(6)="hard'n'heavy"
  105. 906 m$(5)="emulator    "
  106. 948 an=7:gosub49000
  107. 949 on a goto 950,951,952,953,954,955,116
  108. 950 z$="mag.020":goto10000
  109. 951 z$="mag.022":goto10000
  110. 952 z$="mag.024":goto10000
  111. 953 z$="mag.030":goto10000
  112. 954 z$="mag.025":goto10000
  113. 955 z$="mag.014":goto10000
  114. 1000 z$="mag.021":goto10000
  115. 10000 ifis$=z$thenq=1:s=i1:q=i2:goto20000
  116. 10001 open2,8,2,"o:"+z$+"*,s,r"
  117. 10002 input#2,s
  118. 10003 input#2,a1$
  119. 10004 input#2,a2$
  120. 10005 forg1=1tos
  121. 10006 forg2=1to14
  122. 10007 input#2,t$(g2,g1)
  123. 10008 nextg2:nextg1:close2:q=1:is$=z$:i1=s
  124. 11000 print"":forg=1to3:print"                                        ";:nextg
  125. 11001 print"rubrik :[144] ";a1$
  126. 11002 print"[145]thema  : [144]";a2$
  127. 20000 rem *** txt.anz. ***
  128. 20001 print""
  129. 20002 forg=1to16
  130. 20003 print"                                        ";
  131. 20004 nextg
  132. 20005 print" [144][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186]"
  133. 20006 print" [186]                                    [186]"
  134. 20007 print" [186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][186][145][145][152]seite"q"[152]von"s
  135. 20008 forg=1to14
  136. 20009 poke211,1:poke214,g+5:sys58640:print"[151]"t$(g,q):nextg
  137. 20010 gosub47000
  138. 20011 ifa$=""ora$="[145]"thenifq<sthenq=q+1:goto20001
  139. 20012 ifa$="[157]"ora$=""thenifq>1thenq=q-1:goto20001
  140. 20013 ifa$=chr$(13)theni2=q:goto100
  141. 20014 ifa$="[133]"theng=q:goto20019
  142. 20015 ifa$="[134]"then
  143. 20016 ifa$="[135]"then
  144. 20017 ifa$="[136]"then
  145. 20018 goto20010
  146. 20019 poke214,22:poke211,28:sys58640:print"nach ?[144]   [157][157][157]";g
  147. 20020 gosub47000:ifa$=chr$(13)thenq=g:goto20001
  148. 20021 ifa$="[145]"ora$=""thenifg<stheng=g+1
  149. 20022 ifa$=""ora$="[157]"thenifg>1theng=g-1
  150. 20023 goto20019
  151. 47000 rem *** taste ***
  152. 47001 geta$:ifa$=""then47001
  153. 47002 return
  154. 48000 print"":forg=1to9
  155. 48001 print"               ":nextg
  156. 48999 return
  157. 49000 gosub48000
  158. 49001 forg=1toan:poke646,11:poke214,g+14:poke211,24:sys58640:printm$(g):nextg
  159. 49002 a=1:g=0
  160. 49003 g=g+1:ifg=15theng=0
  161. 49004 poke646,g:poke214,a+14:poke211,24:sys58640:printm$(a)
  162. 49005 geta$:ifa$=""then49003
  163. 49006 poke646,11:poke214,a+14:poke211,24:sys58640:printm$(a)
  164. 49007 ifa$="[145]"thenifa>1thena=a-1
  165. 49008 ifa$=""thenifa<anthena=a+1
  166. 49009 ifa$=chr$(13)then49011
  167. 49010 goto49003
  168. 49011 poke646,11:poke214,a+14:poke211,24:sys58640:printm$(a):return
  169. 50000 rem *** sprite ***
  170. 50001 poke2040,224:poke2041,225:poke53248,50:poke53249,55:poke53250,50
  171. 50002 poke53251,55:poke53287,12:poke53288,12:poke53276,3:poke53285,1
  172. 50003 poke53286,11:poke53264,3:return
  173.